program main
    implicit none
    integer :: t,error,i
    character(len=50) :: arg
    i=1
    do while(.true.)
        call get_command_argument(i,arg)
        if(len_trim(arg)==0)then
            exit
        end if
        open(233,file=arg,form='UNFORMATTED',access='SEQUENTIAL',iostat=error)
        write(*,*)'File:',arg
        error=0
        do while(.true.)
            read(233,iostat=error)t
            if(error==0)then
                write(*,*)t
            else
                exit
            end if
        end do
        close(233)
        i=i+1
    end do
end program
